home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr23 / csmac13a.zip / CS-TABLE.CSM < prev    next >
Text File  |  1995-01-22  |  32KB  |  830 lines
  1.  
  2.  ┌────────────────────────────────┐
  3.  │  Chuck Seyboldt's COMMO Macro  │   CS-MAC13A:CS-TABLE.CSM
  4.  └────────────────────────────────┘   Copyright (c) 1995
  5.                                       All rights reserved
  6.  
  7.      Contents:       MAILware prompt table
  8.                      BBSware prompt table
  9.  
  10.      Called from:    CS-COMMO.CSM   :qwk
  11.  
  12.      Control passes to:  CS-LOGON.CSM,glr
  13.  
  14.      The file you are reading  *DOES NOT*  require editing.
  15.  
  16. ***  COMMO.FON does require editing.
  17. ***  BBSID particulars must be added to COMMO.FON.
  18.  
  19.      This CS-TABLE.CSM file provides a facility to combine different BBSware
  20.      and MAILware prompts.  It is fairly easy to maintain COMMO.FON with
  21.      a text editor.  CS-MAC also provides a menu-driven way to add BBSID
  22.      particulars to COMMO.FON (it actually writes a COMMOFON.NEW file).
  23.  
  24.      When your macro stalls at a BBSware or MAILware prompt, CS-TABLE.CSM is
  25.      one place you should look to change.  This is because CS-TABLE.CSM sets
  26.      many of the {look } and {golo } prompt strings that CS-LOGON.CSM uses.
  27.  
  28.  ┌──────────────────────────┐
  29.  │  Link from CS-COMMO.CSM  │
  30.  └──────────────────────────┘
  31.  {:qwk}  {sete-p0 _logon}           ;called from COMMO.FON
  32.          {comp mail} {ifco nomai}   ;If MAILware is NUL, get BBS prompts
  33.          {call %mail}               ;First set MAILware items
  34.  {:nomai}{comp bbs}                 ;After logon, %bbs will be NUL
  35.          {ifco ,%bbs}               ;Goto %bbs at start of call,
  36.                                     ; "generic logon routine"
  37.          {goto noact,cs-logon.csm}  ;To open two doors in one call
  38.  
  39.  ┌─────────────────────────┐
  40.  │  MAILware Prompt Table  │
  41.  └─────────────────────────┘
  42.  
  43.   %md_pmt   = MailDoor_ProMpT  (The MAILware Door Main prompt)
  44.   %md_bypa1 = MailDoor-bypass  (different MAILware have different
  45.                                 nuisance "continue" prompts.  You
  46.                                 MUST define the response & the prompt)
  47.   %mt_qwk   = eMpTy_QWK        (The message signaling an empty packet)
  48.   %md_brnch = MailDoor BRaNCH  (This variable defines "where to branch",
  49.                                 "on what prompt".  Branch occurs after
  50.                                 scan, during summary report.  Used to count
  51.                                 messages or extended MAILware responses)
  52.   %xfer_pmt = TransFER ProMpT   Seen only from CS-LOGON.CSM:c_xxx count branches
  53.   %rdr      = ReaDeR type       To choose packet renaming method in CS-LOGON.CSM
  54.                                 %qrdr names your .QWK reader, supported types
  55.                                 are JBR and QWK.  %znr names your ZIPNews
  56.                                 reader, supported type is ZNR.  %qrdr and %znr
  57.                                 are defined in your CS-MACxx.CFG file)
  58.   %up, %dn  = Mail UPload & DowN
  59.   %qwk, %rep= Packet Extension (To accomodate other than .QWK packets)
  60.   %yes, %no = yes, no          (Affirmative and negative responses)
  61.   %quit     = Return to BBS    (Command to quit door rather than logoff BBS)
  62.   %md_bye   = Logoff BBS       (Command to say Goodbye from Mail door,
  63.                                 set to NUL to force a Quit to BBS)
  64.  
  65.  {:blu}                             ;Blue Wave v1.01 for OPUS-CBCS
  66.          {setv md_pmt,▓ Select: }   ;Novice menu
  67.          {setv md_pmt,X Q G ?]: }   ;Expert menu (default)
  68.          {setv md_bypa1,|,continue...}
  69.          {setv mt_qwk,no such advise from this door}
  70.          {setv md_brnch,c_blu,Grand     }
  71.          {setv xfer_pmt,Select: }   ;[ENTER] to begin normal download
  72.          {setv rdr,%qrdr}
  73.          {setv qwk,rep}{setv rep,rep}
  74.          {setv up,u|} {setv dn,d|}  ;Hotkeys OFF
  75.          {setv yes,|} {setv no,a|}  ;[ENTER] to begin normal download
  76.          {setv md_bye,g|}
  77.          {setv quit,q|}
  78.          {retu}
  79.  
  80.  {:cam}                             ;CAM-Mail
  81.          {setv md_pmt,-Mail Command?}
  82.          {setv md_bypa1,_,ontinue ]}
  83.          {setv mt_qwk,no new messages}
  84.          {setv md_brnch,c_cam,ages.... }
  85.          {setv xfer_pmt,er)=yes?}
  86.          {setv rdr,%qrdr}
  87.          {setv qwk,qwk}{setv rep,rep}
  88.          {setv up,u|}  {setv dn,d|}
  89.          {setv yes,y|} {setv no,n|}
  90.          {setv md_bye,g|}
  91.          {setv quit,q}
  92.          {retu}
  93.  
  94.  {:coq}                             ;Charlie's Off-line .QWK Reader
  95.          {setv md_pmt,_    }        ;this %md_pmt is sort of a kludge
  96.          {setv md_bypa1,_,open_}    ;for Charlie's OffLineQWK
  97.          {setv mt_qwk,r commands}
  98.          {setv md_brnch,c_coq,Total   }
  99.          {setv xfer_pmt,format [Y,n]? }
  100.          {setv rdr,%qrdr}
  101.          {setv qwk,qwk}{setv rep,rep}
  102.          {setv up,u|}  {setv dn,d|}
  103.          {setv yes,y|} {setv no,n|}
  104.          {setv md_bye,*}
  105.          {setv quit,q|}
  106.          {retu}
  107.  
  108.  {:dcq}                             ;DCQwk/TAG
  109.          {setv md_pmt,--->}
  110.          {setv md_bypa1,_,open_}
  111.          {setv mt_qwk,No Message}
  112.          {setv md_brnch,qdl,Help ) }
  113.          {setv xfer_pmt,Help ) }
  114.          {setv rdr,%qrdr}
  115.          {setv qwk,qwk}{setv rep,rep}
  116.          {setv up,u|}  {setv dn,d|}
  117.          {setv yes,g|} {setv no,q|}
  118.          {setv md_bye}
  119.          {setv quit,q|}
  120.          {retu}
  121.  
  122.  {:exq}                             ;EXEC-PC QWK-mail
  123.          {setv md_pmt,UOHQG}
  124.          {setv md_bypa1,_,tinue ->}
  125.          {setv mt_qwk,no messages this time}
  126.          {setv md_brnch,c_exq,autodownload}
  127.          {setv xfer_pmt,Begin your transfer please}
  128.          {setv rdr,%qrdr}
  129.          {setv qwk,qwk}{setv rep,rep}
  130.          {setv up,u}  {setv dn,n}
  131.          {setv yes,y} {setv no,n}
  132.          {setv md_bye,g}
  133.          {setv quit,q}
  134.          {retu}
  135.  
  136.  {:jcq}                             ;JCQWk
  137.          {setv md_pmt,▄▄▄█}
  138.          {setv md_bypa1,|,[ENTER]}
  139.          {setv mt_qwk,no messages this time}
  140.          {setv md_brnch,qdl,<Y/n>}
  141.          {setv xfer_pmt,<Y/n>}
  142.          {setv rdr,%qrdr}
  143.          {setv qwk,qwk}{setv rep,rep}
  144.          {setv up,u}  {setv dn,d}
  145.          {setv yes,y} {setv no,n}
  146.          {setv md_bye,g|}
  147.          {setv quit,q}
  148.          {retu}
  149.  
  150.  {:jet}                             ;JetMail
  151.          {setv md_pmt,Mail Command}
  152.          {setv md_bypa1,|,inue:}
  153.          {setv mt_qwk,ages found.}
  154.          {setv md_brnch,c_mm2,tal Messages: }
  155.          {setv xfer_pmt,bye when done?}
  156.          {setv rdr,%qrdr}
  157.          {setv qwk,qwk}{setv rep,rep}
  158.          {setv up,u|}  {setv dn,d|}
  159.          {setv yes,y|} {setv no,n|}
  160.          {setv md_bye,g|}
  161.          {setv quit,q|}
  162.          {retu}
  163.  
  164.  {:jmr}                             ;Jimmer
  165.          {setv md_pmt,or menu>: }
  166.          {setv md_bypa1,|,inue>}
  167.          {setv mt_qwk,no messages}
  168.          {setv md_brnch,qdl,transfer...}
  169.          {setv xfer_pmt,transfer...}
  170.          {setv rdr,%qrdr}
  171.          {setv qwk,qwk}{setv rep,rep}
  172.          {setv up,u|}  {setv dn,d|}
  173.          {setv yes}    {setv no,n|}
  174.          {setv md_bye,g|}
  175.          {setv quit,r|}
  176.          {retu}
  177.  
  178.  {:lak}                             ;LAKOTA
  179.          {setv md_pmt,[D U S Q]?}
  180.          {setv md_bypa1,_,ontinue ]}
  181.          {setv mt_qwk,no messages this time}
  182.          {setv md_brnch,c_lak,[N T Q]?}
  183.          {setv xfer_pmt,Ready to send}
  184.          {setv rdr,%qrdr}
  185.          {setv qwk,qwk}{setv rep,rep}
  186.          {setv up,u}  {setv dn,d}
  187.          {setv yes,y} {setv no,n}
  188.          {setv md_bye}
  189.          {setv quit,q~~~~~~q|}
  190.          {retu}
  191.  
  192.  {:mkq}                             ;MKQwk
  193.          {setv md_pmt,Command:}
  194.          {setv md_bypa1,_,ontinue ]}
  195.          {setv mt_qwk,No Messages}
  196.          {setv md_brnch,qdl,Enter=}
  197.          {setv xfer_pmt,Enter=}
  198.          {setv rdr,%qrdr}
  199.          {setv qwk,qwk}{setv rep,rep}
  200.          {setv up,u|}  {setv dn,d|}
  201.          {setv yes,y|} {setv no,n|}
  202.          {setv md_bye,g|}
  203.          {setv quit,q|}
  204.          {retu}
  205.  
  206.  {:mm2}                             ;MarkMail 2
  207.          {setv md_pmt,Mail Command}
  208.          {setv md_bypa1,|,inue?}
  209.          {setv mt_qwk,was found!}
  210.          {setv md_brnch,c_mm2,tal Messages: }
  211.          {setv xfer_pmt,When done?}
  212.          {setv rdr,%qrdr}
  213.          {setv qwk,qwk}{setv rep,rep}
  214.          {setv up,u|}  {setv dn,d|}
  215.          {setv yes,y|} {setv no,n|}
  216.          {setv md_bye,g|}
  217.          {setv quit,q|}
  218.          {retu}
  219.  
  220.  {:mmj}                             ;MajorBBS .QWK Mail facility
  221.          {setv md_pmt,R,H,X): }
  222.          {setv md_bypa1,_,ontinue ]}
  223.          {setv mt_qwk,no new articles}
  224.          {setv md_brnch,c_mmj,Found:}
  225.          {setv xfer_pmt,to exit): }
  226.          {setv rdr,%qrdr}
  227.          {setv qwk,qwk}{setv rep,rep}
  228.          {setv up,u|}  {setv dn,d|}
  229.          {setv yes,z|} {setv no,x|}
  230.          {setv md_bye}
  231.          {setv quit,x|}
  232.          {retu}
  233.  
  234.  {:mmp}                             ;MacroBBS ASCII packer
  235.          {setv md_pmt,MP Command: }
  236.          {setv md_bypa1,_,any key}
  237.          {setv mt_qwk,no new messages}
  238.          {setv md_brnch,c_mmp,[a]scii:} ;MacroBBS packer choose .qwk
  239.          {setv xfer_pmt,<CTRL-X> aborts.}
  240.          {setv rdr,%qrdr}
  241.          {setv qwk,qwk}{setv rep,rep}
  242.          {setv up,u}  {setv dn,d}
  243.          {setv yes}   {setv no,n}
  244.          {setv md_bye,*}
  245.          {setv quit,q}
  246.          {retu}
  247.  
  248.  {:mxr}                             ;MAXIMUS Reader (hotkeys)
  249.          {setv md_pmt,   ^m^jSelect: }
  250.          {setv md_bypa1,|, <enter> }
  251.          {setv mt_qwk,no new articles}
  252.          {setv md_brnch,qdl,at [Y,n]?} ;Download these in QWK format [Y,n]?
  253.          {setv xfer_pmt,at [Y,n]?}
  254.          {setv rdr,%qrdr}
  255.          {setv qwk,qwk}{setv rep,rep}
  256.          {setv up,u}  {setv dn,d}
  257.          {setv yes,y} {setv no,n}
  258.          {setv md_bye,g}
  259.          {setv quit,m}
  260.          {retu}
  261.  
  262.  {:oqw}                             ;O_QWKer mail door for OPUS-CBCS
  263.          {setv md_pmt,t    ?)Help^m^jSelect: }
  264.          {setv md_bypa1,|,to Continue}
  265.          {setv mt_qwk,No messages scanned!}
  266.          {setv md_brnch,qdl,or Select: }
  267.          {setv xfer_pmt,or Select: }
  268.          {setv rdr,%qrdr}
  269.          {setv qwk,qwk}{setv rep,rep}
  270.          {setv up,u|} {setv dn,d|}
  271.          {setv yes,d|} {setv no,a|}
  272.          {setv md_bye}
  273.          {setv quit,q|}
  274.          {retu}
  275.  
  276.  {:p15}                             ;PCBoard 15.x "qwk" command
  277.          {setv md_pmt,Command?}     ;Note: set %dorno = NUL
  278.          {setv md_bypa1,retu,^a}    ;let kermit timeout on small packet
  279.          {setv mt_qwk,nothing to download.}
  280.          {setv md_brnch,c_p15,Download ->}
  281.          {setv xfer_pmt,Aborts Transfer}
  282.          {setv rdr,%qrdr}
  283.          {setv qwk,qwk}{setv rep,rep}
  284.          {setv up,qwk u %or_prot|} {setv dn,qwk d %or_prot|}
  285.          {setv yes} {setv no}
  286.          {setv md_bye,g|}
  287.          {setv quit}
  288.          {retu}
  289.  
  290.  {:pwq}                             ;PowerBBS QWK mail
  291.          {setv md_pmt,Mail Menu Command?}     ;Note: set %dorno = m
  292.          {setv md_bypa1,|,[ENTER]:}           ;various maildoor nuisances
  293.          {setv mt_qwk,new message pointers}
  294.          {setv md_brnch,c_pwq,[ENTER=Quit]:}  ;PowerBBS [A]ll Chosen Forums
  295.          {setv xfer_pmt,which protocol}
  296.          {setv rdr,%qrdr}
  297.          {setv qwk,qwk}{setv rep,rep}
  298.          {setv up,t}      {setv dn,d}
  299.          {setv yes,z} {setv no,n}   ;Choosing [Z]modem protocol or [N]one
  300.          {setv md_bye,g}
  301.          {setv quit,q}              ;Quit to Main Menu Command?
  302.          {retu}
  303.  
  304.  {:qm2}                             ;Qmail 2
  305.          {setv md_pmt,) Command?}
  306.          {setv md_bypa1,_,ontinue ]}
  307.          {setv mt_qwk,No Message}
  308.          {setv md_brnch,c_qm2,es Found.........}
  309.          {setv xfer_pmt,this packet (}
  310.          {setv rdr,%qrdr}
  311.          {setv qwk,qwk}{setv rep,rep}
  312.          {setv up,u|}  {setv dn,d|}
  313.          {setv yes,y|} {setv no,n|}
  314.          {setv md_bye,g|}
  315.          {setv quit,q|}
  316.          {retu}
  317.  
  318.  {:qm4}                             ;Qmail 4
  319.          {setv md_pmt,l Command?}
  320.          {setv md_bypa1,y|,inue...}
  321.          {setv mt_qwk, no messages }
  322.          {setv md_brnch,c_qm4,found....}
  323.          {setv xfer_pmt,se messages}
  324.          {setv rdr,%qrdr}
  325.          {setv qwk,qwk}{setv rep,rep}
  326.          {setv up,u|}  {setv dn,d|}
  327.          {setv yes,y|} {setv no,n|}
  328.          {setv md_bye,g|}
  329.          {setv quit,q|}
  330.          {retu}
  331.  
  332.  {:roz}                             ;Rosemail
  333.          {setv md_pmt,Mail Command}
  334.          {setv md_bypa1,_,ontinue ]}
  335.          {setv mt_qwk,no new mess}
  336.          {setv md_brnch,c_roz,download:}
  337.          {setv xfer_pmt,is packet (}
  338.          {setv rdr,%qrdr}
  339.          {setv qwk,qwk}{setv rep,rep}
  340.          {setv up,u|}  {setv dn,d|}
  341.          {setv yes,y|} {setv no,n|}
  342.          {setv md_bye,g|}
  343.          {setv quit,q|}
  344.          {retu}
  345.  
  346.  {:sxp}                             ;Silver Express v5.0
  347.          {setv md_pmt, Command : }
  348.          {setv md_bypa1,_,ontinue ]}
  349.          {setv mt_qwk,No New Messages}
  350.          {setv md_brnch,c_sxp,Total   }
  351.          {setv xfer_pmt,Help ) }
  352.          {setv rdr,%qrdr}
  353.  
  354.          {setv qwk,opx} {setv dn,d|};OPX style packet and commands
  355.          {setv rep,---} {setv up,u|}; enabled by removing curleys below
  356.  
  357.          {setv qwk,qwk} {setv dn,k|};QWK style packet and commands will
  358.          {setv rep,rep} {setv up,u|}; default unless curleys are removed
  359.  
  360.          {setv yes,y|} {setv no,n|}
  361.          {setv md_bye,g|}
  362.          {setv quit,q|}
  363.          {retu}
  364.  
  365.  {:tc!}                             ;TomCat!
  366.          {setv md_pmt, Q]: }
  367.          {setv md_bypa1,_,ontinue ]}
  368.          {setv mt_qwk,Nothing found to download!}
  369.          {setv md_brnch,c_tc!,messages found: }
  370.          {setv xfer_pmt,done? }
  371.          {setv rdr,%qrdr}
  372.          {setv qwk,qwk}{setv rep,rep}
  373.          {setv up,u|}  {setv dn,d|}
  374.          {setv yes,y|} {setv no,n|}
  375.          {setv md_bye,g|}
  376.          {setv quit,q|~~~~~~~~|}    ;1st <CR> only gets to door menu
  377.          {retu}
  378.  
  379.  {:tma}                             ;TriMail
  380.          {setv md_pmt,Q G]? }
  381.          {setv md_bypa1,_,open_}
  382.          {setv mt_qwk,nothing to download.}
  383.          {setv md_brnch,c_tma,Messages: }
  384.          {setv xfer_pmt,t (Y/n)?}
  385.          {setv rdr,%qrdr}
  386.          {setv qwk,qwk}{setv rep,rep}
  387.          {setv up,u} {setv dn,d}
  388.          {setv yes,y} {setv no,n}
  389.          {setv md_bye,g}
  390.          {setv quit,q}
  391.          {retu}
  392.  
  393.  {:uqw_ny} {setv uqw_ny,+n} {retu}
  394.  {:uqw}                             ;uqwk routine.  See LOGON:c_uqw & :uqw_up
  395.          {setv md_pmt,%inet_pmt}
  396.          {setv md_bypa1,_,open_}
  397.          {setv mt_qwk,open_}
  398.          {setv md_brnch,c_uqw,%inet_pmt}
  399.          {setv xfer_pmt,open_}
  400.          {setv uqw_ny}
  401.          {comp uqwk_news,y} {ifco-c uqw_ny}
  402.          {goto uqwk_%uqwk_type}         ;SOUP, ZIPNEWS, or QWK
  403.  {:uqwk_qwk} {:uqwk_q} {:uqwk_}
  404.          {setv rdr,%qrdr}               ;QWK packet construction
  405.          {setv qwk,qwk}{setv rep,rep}   ;default setting
  406.          {setv dn,uqwk +m %uqw_ny +W|}
  407.          {setv uqwk_up,+z}
  408.          {setv uqwk_r,messages.dat}
  409.          {goto uqw_1}
  410.  {:uqwk_zipnews} {:uqwk_z}
  411.          {setv rdr,znr}                 ;ZIPNews packet construction
  412.          {setv qwk,zns}{setv rep,pst}
  413.          {setv dn,uqwk +m %uqw_ny +z|}
  414.          {setv uqwk_up}
  415.          {setv uqwk_r}
  416.          {goto uqw_1}
  417.  {:uqwk_soup} {:uqwk_s}
  418.          {setv rdr,znr}                 ;SOUP packet construction
  419.          {setv qwk,sou}{setv rep,rep}
  420.          {setv dn,uqwk +m %uqw_ny +L|}
  421.          {setv uqwk_up,+L}
  422.          {setv uqwk_r,REPLIES}
  423.  {:uqw_1}
  424.          {setv uqw_ny}
  425.          {setv up,rz|}
  426.          {setv yes,sz %bbsid.%qwk|}
  427.          {setv no}
  428.          {setv md_bye}
  429.          {setv quit}
  430.          {retu}
  431.  
  432.  {:vbq}                             ;VirtualBBS .QWK Mail facility
  433.          {setv md_pmt,-> }
  434.          {setv md_bypa1,_,ontinue ]}
  435.          {setv mt_qwk,no new articles}
  436.          {setv md_brnch,qdl,for list):}
  437.          {setv xfer_pmt,for list):}
  438.          {setv rdr,%qrdr}
  439.          {setv qwk,qwk}{setv rep,rep}
  440.          {setv up,u}  {setv dn,d}
  441.          {setv yes,z} {setv no,q}
  442.          {setv md_bye,g|}
  443.          {setv quit,q}
  444.          {retu}
  445.  
  446.  {:wci}                             ;Wildcat internal to main menu
  447.          {setv md_pmt,] ? }         ; (Doug Glen's Forum! BBS)
  448.          {setv md_bypa1,_,open_}
  449.          {setv mt_qwk, to download!}
  450.          {setv md_brnch,c_wci, found: }
  451.          {setv xfer_pmt,when done?}
  452.          {setv rdr,%qrdr}
  453.          {setv qwk,qwk}{setv rep,rep}
  454.          {setv up,u|}  {setv dn,d|}
  455.          {setv yes,y|} {setv no,n|}
  456.          {setv md_bye,g|}
  457.          {setv quit}                ;no quit, BBSware = MAILware
  458.          {retu}
  459.  
  460.  {:wcm}                             ;Wildcat mail (wcMAIL)
  461.          {setv md_pmt,wcMAIL command }  ; (David Reynolds' Beta Conection)
  462.          {setv md_bypa1,_,ontinue ]}
  463.          {setv mt_qwk, to download!}
  464.          {setv md_brnch,c_wcm,ages found: }
  465.          {setv xfer_pmt, when done?}
  466.          {setv rdr,%qrdr}
  467.          {setv qwk,qwk}{setv rep,rep}
  468.          {setv up,u|}  {setv dn,d|}
  469.          {setv yes,y|} {setv no,n|}
  470.          {setv md_bye,g|}
  471.          {setv quit,q|}
  472.          {retu}
  473.  
  474.  {:zns}                             ;ZIPNEWS (Jack Kilday's Internet door)
  475.          {setv md_pmt,choice: }
  476.          {setv md_bypa1,p_flg,Extracting personal mail}
  477.          {setv mt_qwk,no new articles}
  478.          {setv md_brnch,c_zns,Found:}
  479.          {setv xfer_pmt,articles?}
  480.          {setv rdr,znr}
  481.          {setv qwk,zns}{setv rep,pst}
  482.          {setv up,u|}  {setv dn,d|}
  483.          {setv yes,y|} {setv no,n|}
  484.          {setv md_bye}
  485.          {setv quit,q|}
  486.          {retu}
  487.  
  488.  ┌────────────────────────┐
  489.  │  BBSware Prompt Table  │
  490.  └────────────────────────┘
  491.  
  492.   %bbs_pmt  =  BBSware_ProMpT   (The BBSware Main prompt)
  493.   %lan_pmt  =  LANguage prompt  (and reply) \
  494.   %nam_pmt  =  NAMe_ProMpT      (and reply)  ) name=%name, handle=%handle
  495.   %gra_pmt  =  GRAphics ProMpT  (and reply) /    !MUST BE DEFINED!
  496.   %pwd_pmt  =  PassWorD ProMpT  (BBSware password prompt)
  497.   %bypass?  =  Bypass nuisance  (different BBSware have different
  498.                                  nuisance "continue" prompts.  You
  499.                                  MUST define ALL 9!)
  500.   %bye      = Logoff Command    (Command to exit BBS)
  501.   %rs       = Response Suffix   (| for BBSware that expects you to
  502.                                  press <CR> after each command)
  503.   %qlo      = Quick LogOn       (optional string to send quick logon
  504.                                  to BBS.  To send %qlo instead of %name,
  505.                                  you must also set %ql=y on the .FON entry)
  506.  
  507.  {:exc}                             ;EXEC-PC
  508.          {setv bbs_pmt,?=HELP) ->}  ;Expert prompt
  509.          {setv lan_pmt,n|,change?}
  510.          {setv nam_pmt,f&l,FIRST name ->}
  511.          {setv gra_pmt,%color,cs? (y/N) ->}
  512.          {setv pwd_pmt,password}
  513.          {setv bypass1,|,ntinue ->} ;Any key to continue
  514.          {setv bypass2,n,ates) ->}  ;Bulletin review?
  515.          {setv bypass3,|,ntinue ->} ;
  516.          {setv bypass4,n,More?}     ;just say 'no' to "More?"
  517.          {setv bypass5,_,open_}
  518.          {setv bypass6,_,open_}
  519.          {setv bypass7,_,open_}
  520.          {setv bypass8,_,open_}
  521.          {setv bypass9,_,open_}
  522.          {setv bye,g}
  523.          {setv rs}
  524.          {goto _logon}
  525.  
  526.  {:gap}                             ;GAP
  527.          {setv bbs_pmt,Command :}
  528.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  529.          {setv nam_pmt,name,st name}
  530.          {setv gra_pmt,loq, yes :}  ;GAP      "Graphics" prompt
  531.          {setv pwd_pmt,password}
  532.          {setv bypass1,n|,More?}    ;just say 'no' to "More?"
  533.          {setv bypass2,n|,inue?}    ;just say 'no' to "Continue?"
  534.          {setv bypass3,n|,=yes?}    ;just say 'no' to "mail scan"
  535.          {setv bypass4,n|,More?}    ;just say 'no' to "More?"
  536.          {setv bypass5,n|,To Continue}
  537.          {setv bypass6,_,open_}
  538.          {setv bypass7,_,open_}
  539.          {setv bypass8,_,open_}
  540.          {setv bypass9,_,open_}
  541.          {setv bye,g}
  542.          {setv rs,|}
  543.          {goto _logon}
  544.  
  545.  {:int}                             ;Internet gateway
  546.          {setv bbs_pmt,%inet_pmt}   ;Internet prompt
  547.          {setv lan_pmt,_,open_}
  548.          {setv nam_pmt,handle,login:}
  549.          {setv gra_pmt,_,open_}
  550.          {setv pwd_pmt,password:}
  551.          {setv bypass1,pas|,%pwd_pmt}
  552.          {setv bypass2,_,open_}
  553.          {setv bypass3,_,open_}
  554.          {setv bypass4,_,open_}
  555.          {setv bypass5,_,open_}
  556.          {setv bypass6,_,open_}
  557.          {setv bypass7,_,open_}
  558.          {setv bypass8,_,open_}
  559.          {setv bypass9,un_pfl,You have no new mail}
  560.          {setv bye,%inet_bye}
  561.          {setv rs,|}
  562.          {goto _logon}              ;now .. login to provider
  563.  
  564.  {:mac}                             ;MACROBBS
  565.          {setv bbs_pmt,MM Command: }
  566.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  567.          {setv nam_pmt,name,login   }
  568.          {setv gra_pmt,loq,hics (}  ;Graphics, CS-LOGON.CSM:loq
  569.          {setv pwd_pmt,password:}
  570.          {setv bypass1,_,any key}   ;bypass "Press any key"
  571.          {setv bypass2,n,inue?}     ;just say 'no' to "Continue?"
  572.          {setv bypass3,n, (Y,n) :}  ;just say 'no' to "mail scan"
  573.          {setv bypass4,n,? (y,N):}  ;Ride Charlie's QWK express?
  574.          {setv bypass5,n|,Awards? (y,n)};non-hotkey response
  575.          {setv bypass6,_,open_}
  576.          {setv bypass7,_,open_}
  577.          {setv bypass8,_,open_}
  578.          {setv bypass9,_,open_}
  579.          {setv bye,*}
  580.          {setv rs}
  581.          {goto _logon}
  582.  
  583.  {:mah}  {setv nam_pmt,handle,Handle:};MAJOR BBS.  Two name prompts
  584.          {goto maj_}
  585.  {:maj}  {setv nam_pmt,handle,"new":}
  586.  {:maj_} {setv bbs_pmt,to exit):}   ;Expert prompt
  587.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  588.          {setv nam_pmt,handle,"new":}
  589.          {setv gra_pmt,loq,hics (}  ;Graphics, CS-LOGON.CSM:loq
  590.          {setv pwd_pmt,password}
  591.          {setv bypass1,|,to cont}   ;Press ENTER to continue
  592.          {setv bypass2,q,(Q)uit,}   ;(N)onstop, (Q)uit, (C)ontinue?
  593.          {setv bypass3,lob,dd/yy)?} ;Birthdate Prompt
  594.          {setv bypass4,n|,More?}    ;just say 'no' to "More?"
  595.          {setv bypass5,_,open_}
  596.          {setv bypass6,_,open_}
  597.          {setv bypass7,_,open_}
  598.          {setv bypass8,_,open_}
  599.          {setv bypass9,_,open_}
  600.          {setv bye,x}
  601.          {setv rs,|}
  602.          {goto _logon}
  603.  
  604.  {:max}                             ;MAXIMUS/2 v2.01 (Hotkeys ON)
  605.          {setv bbs_pmt,SELECT:^m^j}
  606.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  607.          {setv nam_pmt,name,r name: }
  608.          {setv gra_pmt,loq,hics (}  ;Graphics, CS-LOGON.CSM:loq
  609.          {setv pwd_pmt,Password:}
  610.          {setv bypass1,n,More [}    ;No More
  611.          {setv bypass2,n, [Y,n]?}   ;Don't check for mail or files
  612.          {setv bypass3,|,R to co}   ;Press ENTER to continue
  613.          {setv bypass4,_,open_}
  614.          {setv bypass5,_,open_}
  615.          {setv bypass6,_,open_}
  616.          {setv bypass7,_,open_}
  617.          {setv bypass8,_,open_}
  618.          {setv bypass9,_,open_}
  619.          {setv bye,g}
  620.          {setv rs}
  621.          {goto _logon}
  622.  
  623.  {:opu}                             ;OPUS-CBCS v1.73a
  624.          {setv bbs_pmt,)     ?)HELP^m^jSelect: }
  625.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  626.          {setv nam_pmt,name,FULL NAME: }
  627.          {setv gra_pmt,%color,cs (y/N)?}
  628.          {setv pwd_pmt,password}
  629.          {setv bypass1,q|,^m^j Select: };Quit bulletin menu
  630.          {setv bypass2,n|,More [Y,n}
  631.          {setv bypass3,|,ntinue ->}
  632.          {setv bypass4,n|,ER to continu}
  633.          {setv bypass5,_,open_}
  634.          {setv bypass6,_,open_}
  635.          {setv bypass7,_,open_}
  636.          {setv bypass8,_,open_}
  637.          {setv bypass9,_,open_}
  638.          {setv bye,g}
  639.          {setv rs,|}
  640.          {goto _logon}
  641.  
  642.  {:pcb}  {:rbb}                     ;PCBoard or RBBS
  643.          {setv bbs_pmt,Command?}    ;Main Board Prompt
  644.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  645.          {setv nam_pmt,name, name? };Name Prompt
  646.          {setv qlo,%name %_pas !main|};quick logon, Directory assistance
  647.          {setv gra_pmt,loq,graphics};Graphics, CS-LOGON.CSM:loq
  648.          {setv pwd_pmt,password}
  649.          {setv bypass1,n|,mail?}    ;just say 'no' to "mail scan"
  650.          {setv bypass2,p_flg,you have new mail} ;set personal mail flag
  651.          {setv bypass3,n|,inue?}    ;just say 'no' to "Continue?"
  652.          {setv bypass4,n|,More?}    ;just say 'no' to "More?"
  653.          {setv bypass5,n|,N)?}      ;just say 'no' RBBS prompt
  654.          {setv bypass6,retry,R) to re-enter};redo whole thing if necessary
  655.          {setv bypass7,n|,N,C,A>?}  ;RBBS "More" prompt
  656.          {setv bypass8,_,open_}
  657.          {setv bypass9,_,open_}
  658.          {setv bye,g}
  659.          {setv rs,|}
  660.          {goto _logon}
  661.  
  662.  {:pow}                             ;PowerBBS v3.50
  663.          {setv bbs_pmt,es Left)}    ;Main Board Prompt - novice
  664.          {setv bbs_pmt,Main Menu Command?}             - expert
  665.          {setv lan_pmt,|,:  [ENTER=};"Language" response for sighted user
  666.                                     ; ref:Kim Day's Bodhi Tree BBS
  667.          {comp shh} {ifco pow_shh}  ;%shh is set for blind user
  668.          {setv lan_pmt,5|,:  [ENTER=};"Language" response for blind user
  669.  {:pow_shh}
  670.          {setv nam_pmt,name,ST name:};Name Prompt
  671.          {setv gra_pmt,loq,graphics};Graphics, CS-LOGON.CSM:loq
  672.          {setv pwd_pmt,Password:}
  673.          {setv bypass1,|,[ENTER]:}  ;Enter to continue
  674.          {setv bypass2,s,[S]top, }  ; :: Paused :: prompt
  675.          {setv bypass3,n,Search for };new mail, new files, no search
  676.          {setv bypass4,y,Abort old };skip intro screens
  677.          {setv bypass5,n,NTER=Yes]:};skip mail and new file scans
  678.          {setv bypass6,p_flg,Personal Mail Waiting!}
  679.          {setv bypass7,_,open_}
  680.          {setv bypass8,_,open_}
  681.          {setv bypass9,_,open_}
  682.          {setv bye,g}
  683.          {setv rs}                  ;Response suffix  *none* for hotkey BBS
  684.          {goto _logon}
  685.  
  686.  {:rma}                             ;Remote Access
  687.          {setv bbs_pmt,Command:}
  688.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  689.          {setv nam_pmt,name, name: }
  690.          {setv gra_pmt,loq,hics (}  ;Graphics, CS-LOGON.CSM:loq
  691.          {setv pwd_pmt,password}
  692.          {setv bypass1,|,TER]}      ;Babble continue prompt
  693.          {setv bypass2,|,tinue:}    ;"Press 'Enter' to Continue:" prompt
  694.          {setv bypass3,n,(Y/n/=)}   ;just say 'no' to "More'etc'?"
  695.          {setv bypass4,n|,More?}    ;just say 'no' to "More?"
  696.          {setv bypass5,_,open_}
  697.          {setv bypass6,_,open_}
  698.          {setv bypass7,_,open_}
  699.          {setv bypass8,_,open_}
  700.          {setv bypass9,_,open_}
  701.          {setv bye,g}
  702.          {setv rs,|}
  703.          {goto _logon}
  704.  
  705.  {:s-f}                             ;SpitFire
  706.          {setv bbs_pmt,^m^jMAIN MENU -}
  707.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  708.          {setv nam_pmt,name,st name:}
  709.          {setv gra_pmt,%color,? [y/N]}   ;Spitfire "Graphics" prompt
  710.          {setv pwd_pmt,password}
  711.          {setv bypass1,|,TER >}     ;Spitfire "more" and BLT bypass
  712.          {setv bypass2,n,? [Y/n]}   ;Spitfire "new" prompts
  713.          {setv bypass3,lob,-DD-YY]:};birthday prompt
  714.          {setv bypass4,_,open_}
  715.          {setv bypass5,_,open_}
  716.          {setv bypass6,_,open_}
  717.          {setv bypass7,_,open_}
  718.          {setv bypass8,_,open_}
  719.          {setv bypass9,_,open_}
  720.          {setv bye,g}
  721.          {setv rs,|}
  722.          {goto _logon}
  723.  
  724.  {:sfh}                             ;SpitFire, HOTKEY version
  725.          {setv bbs_pmt,^m^jMAIN MENU -}
  726.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  727.          {setv nam_pmt,name,st name:}
  728.          {setv gra_pmt,%color,? [y/N]}   ;Spitfire "Graphics" prompt
  729.          {setv pwd_pmt,password}
  730.          {setv bypass1,|,TER >}     ;Spitfire "more" and BLT bypass
  731.          {setv bypass2,n,? [Y/n]}   ;Spitfire "new" prompts
  732.          {setv bypass3,lob,-DD-YY]:};birthday prompt
  733.          {setv bypass4,_,open_}
  734.          {setv bypass5,_,open_}
  735.          {setv bypass6,_,open_}
  736.          {setv bypass7,_,open_}
  737.          {setv bypass8,_,open_}
  738.          {setv bypass9,_,open_}
  739.          {setv bye,g}
  740.          {setv rs,}
  741.          {goto _logon}
  742.  
  743.  {:tag}                             ;T.A.G.
  744.          {setv bbs_pmt,IN MENU:}
  745.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  746.          {setv nam_pmt,name,number:}
  747.          {setv gra_pmt,loq,hics (}  ;Graphics, CS-LOGON.CSM:loq
  748.          {setv pwd_pmt,password}
  749.          {setv bypass1,n|,y/[N])}   ;just say 'no' to mail check
  750.          {setv bypass2,|,tinue>}    ;<Press ENTER to continue>
  751.          {setv bypass3,_,any key^)} ;Press SPACE an "any key" prompts
  752.          {setv bypass4,n|,More?}    ;just say 'no' to "More?"
  753.          {setv bypass5,_,open_}
  754.          {setv bypass6,_,open_}
  755.          {setv bypass7,_,open_}
  756.          {setv bypass8,_,open_}
  757.          {setv bypass9,_,open_}
  758.          {setv bye,/g}
  759.          {setv rs,|}
  760.          {goto _logon}
  761.  
  762.  {:tri}                             ;TriBBS
  763.          {setv bbs_pmt,! ?]? }
  764.          {setv lan_pmt,|,R> for 1):};TriBBS language prompt
  765.          {setv nam_pmt,name,LAST name:}
  766.          {setv qlo,*%name;%_pas|}   ;quick logon, Demodulator
  767.          {setv gra_pmt,%color,cs (y/N)?}
  768.          {setv pwd_pmt,r password}
  769.          {setv bypass1,|,ntinue ->} ;Any key to continue
  770.          {setv bypass2,n,ates) ->}  ;Bulletin review?
  771.          {setv bypass3,s,<S>top, }
  772.          {setv bypass4,n,now (Y/n)?};read your messages now (Y/n)?
  773.          {setv bypass5,_,open_}
  774.          {setv bypass6,_,open_}
  775.          {setv bypass7,_,open_}
  776.          {setv bypass8,_,open_}
  777.          {setv bypass9,_,open_}
  778.          {setv bye,g}
  779.          {setv rs}
  780.          {goto _logon}
  781.  
  782.  {:vir}                             ;Virtual BBS
  783.          {setv bbs_pmt,Time Left =} ;Expert prompt
  784.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  785.          {setv nam_pmt,handle,Login   :}
  786.          {setv gra_pmt,loq,hics (}  ;Graphics, CS-LOGON.CSM:loq
  787.          {setv pwd_pmt,password}
  788.          {setv bypass1,|,go for it!};Press ENTER to continue
  789.          {setv bypass2,n|,Enter=No)};No AutoPost
  790.          {setv bypass3,n|,Enter=Yes};Don't read your mail
  791.          {setv bypass4,n|,More?}    ;just say 'no' to "More?"
  792.          {setv bypass5,_,open_}
  793.          {setv bypass6,_,open_}
  794.          {setv bypass7,_,open_}
  795.          {setv bypass8,_,open_}
  796.          {setv bypass9,_,open_}
  797.          {setv bye,g}
  798.          {setv rs}
  799.          {goto _logon}
  800.  
  801.  {:wc!}  {setv bbs_pmt,] ? }        ;Wildcat!
  802.          {goto _wc}
  803.  {:wc1}  {setv bbs_pmt,>>  ?}       ;Wildcat! ... different bbs_pmt
  804.          {goto _wc}
  805.  {:wc2}  {setv bbs_pmt,)...?}       ;Wildcat! ... different bbs_pmt
  806.          {goto _wc}
  807.  {:_wc}  {setv nam_pmt,name,st name};Wildcat! variable setting continues
  808.          {setv qlo,*%name %_pas|}   ;Quick logon to main BBS, FORUM! BetaCon
  809.          {setv lan_pmt,n|,change?}  ;PCBoard  "Language" prompt
  810.          {setv gra_pmt,loq,hics (}  ;Graphics, CS-LOGON.CSM:loq
  811.          {setv pwd_pmt,Password? }
  812.          {setv bypass1,lov,CE ph}   ;Wildcat Phone Number verify
  813.          {setv bypass2,lob,UR bi}   ;Wildcat  Birthdate   verify
  814.          {setv bypass3,lod,TA ph}   ;Wildcat Data Phone   verify
  815.          {setv bypass4,s|,S]top?}   ;Wildcat -pause- prompt
  816.          {setv bypass5,c|,]ontinue?};Wildcat continue prompt
  817.          {setv bypass6,n|,view it? [};Wildcat! updated newsletter bypass
  818.          {setv bypass7,n|,menu? [}  ;No to Wildcat! bulletin menu
  819.          {setv bypass8,|,to continue?};Press [ENTER] to continue?
  820.          {setv bypass9,_,open_}
  821.          {setv bye,g|}
  822.          {setv rs}
  823.          {goto _logon}
  824.  
  825.  {:_logon}                          ;goes to CS-LOGON.CSM generic logon
  826.          {setv bb,%bbs}             ;for future CS-ACTON.CSM expansion
  827.          {setv bbs}
  828.          {pops-c}
  829.          {goto glr,cs-logon.csm}
  830.